;
;  MIS -- (c) 1990 Chris Butler
;

;VIDEO M

  set all off
  goto top
all:
  set all on	; will cycle thru all modules
top:

global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw  488
global boxh  115
global boxtitle "Max with Ed the engineer"
set h 17	; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14; 
cload max.clp 30 1 0	  ; max's face
tran on 15
cload cover.clp 32 0 1 

marc:
set boxtitle "  Max with Mary from MIS"
set entrypoint "entry_11"
pload palette1.pcx 1
palette 1
pfree 1
cload mis.clp 31 1 0
merge toursubs.txt

call steps.txt mis

label502:
newbgrnd "mis1.pcx" 80 0 0 0 100 5
;mouse on
set str1 "Hey, Max. Everybody down in MIS has been talking about how well the "
set str2 "MAXIMO Local Area Network has worked for us."
say 0 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label503
noise 500 200 50
waitkey 100
goto label1a

label503:
set str1 "And MAXIMO's SQL database lets us import and export cost data from"
set str2 " the mainframe database without programming!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label502

label504:
set str1 "You know we've been thinking about installing MAXIMO at headquarters "
set str2 "for facilities maintenance. Can we modify the system for use there?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label503

label505:
set str1 "MAXIMO makes that simple, Mary. You probably want to start with chang"
set str2 "ing some screen formats. Let me show you MAXIMO's Screen Painter ..."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label504

label506:
newbgrnd "27a.pcx" 80 0 1 0 100 9
set str1 " ... first, we start with the standard Equipment Screen ... "
set str2 " "
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label505

label507:
newbgrnd "27b.pcx" 80 0 1 0 100 9
set str1 "Here I've changed the field names, sizes and meanings. And MAXIMO let"
set str2 "s me show budget fields to management and hide them from other users."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label506

label508:
newbgrnd "28.pcx" 80 0 1 0 100 9
set str1 "Here we've changed security so that only I can approve purchase order"
set str2 "s. I can even set a dollar amount for PO authority."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label507

label509:
newbgrnd "29.pcx" 80 0 1 0 100 9
set str1 "And you can also modify the value list lookup tables. For example, y"
set str2 "ou might want to identify different types of facility work orders."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label508

label510:
set str1 "That's great. A totally different MAXIMO! Customized for facilities "
set str2 "maintenance's very different needs!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label509

label511:
set str1 "Max, I understand PSDI is an IBM Business Partner. Can they help "
set str2 "with our LAN designs?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label510

label512:
set str1 "Sure thing Mary. The IBM people are interconnectivity experts. PSDI c"
set str2 "an have IBM Network Design Engineers come onsite to design a network."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label511

labl512a:
newbgrnd "network.pcx" 112 0 1 0 100 9
set str1 "Here's a diagram the PSDI sales rep left me for a new LAN configura"
set str2 "tion."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label512

label513:
newbgrnd "mis1.pcx" 80 0 0 0 100 9
set str1 "Wonderful! This will really get us up to speed in a hurry. PSDI and I"
set str2 "BM. Sounds like the winning combination."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" labl512a

label514:
set str1 "Yup. Well, I'll see you later, Mary. I've got a meeting with Patrick."
set str2 " "
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label513

;mouse off

if @all==on linkit
  link master.txt entry_11
linkit:
  link mgr.txt all 

; SUBR MIS